home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / Goodies / ICONWO~1 / ABOUTBOX.FRM next >
Text File  |  1997-06-09  |  5KB  |  168 lines
  1. VERSION 5.00
  2. Begin VB.Form AboutBox 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "About IconWorks"
  5.    ClientHeight    =   2364
  6.    ClientLeft      =   1368
  7.    ClientTop       =   1428
  8.    ClientWidth     =   5640
  9.    ClipControls    =   0   'False
  10.    BeginProperty Font 
  11.       Name            =   "System"
  12.       Size            =   9.6
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "ABOUTBOX.frx":0000
  20.    LinkMode        =   1  'Source
  21.    LinkTopic       =   "Form2"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    PaletteMode     =   1  'UseZOrder
  25.    ScaleHeight     =   2364
  26.    ScaleWidth      =   5640
  27.    Begin VB.PictureBox Pic_ApplicationIcon 
  28.       AutoSize        =   -1  'True
  29.       BorderStyle     =   0  'None
  30.       BeginProperty Font 
  31.          Name            =   "MS Sans Serif"
  32.          Size            =   7.8
  33.          Charset         =   0
  34.          Weight          =   700
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       Height          =   384
  40.       Left            =   255
  41.       Picture         =   "ABOUTBOX.frx":030A
  42.       ScaleHeight     =   384
  43.       ScaleWidth      =   384
  44.       TabIndex        =   4
  45.       Top             =   255
  46.       Width           =   384
  47.    End
  48.    Begin VB.CommandButton Cmd_OK 
  49.       Caption         =   "OK"
  50.       Height          =   360
  51.       Left            =   4350
  52.       TabIndex        =   6
  53.       Top             =   1800
  54.       Width           =   1035
  55.    End
  56.    Begin VB.Line lin_HorizontalLine1 
  57.       BorderWidth     =   2
  58.       X1              =   975
  59.       X2              =   5010
  60.       Y1              =   1425
  61.       Y2              =   1425
  62.    End
  63.    Begin VB.Label Lbl_IconWorks 
  64.       Caption         =   "IconWorks"
  65.       BeginProperty Font 
  66.          Name            =   "MS Sans Serif"
  67.          Size            =   18
  68.          Charset         =   0
  69.          Weight          =   700
  70.          Underline       =   0   'False
  71.          Italic          =   0   'False
  72.          Strikethrough   =   0   'False
  73.       EndProperty
  74.       Height          =   450
  75.       Left            =   990
  76.       TabIndex        =   1
  77.       Top             =   270
  78.       Width           =   1920
  79.    End
  80.    Begin VB.Label Lbl_Version 
  81.       Caption         =   "Version 1.00"
  82.       BeginProperty Font 
  83.          Name            =   "MS Sans Serif"
  84.          Size            =   9.6
  85.          Charset         =   0
  86.          Weight          =   700
  87.          Underline       =   0   'False
  88.          Italic          =   0   'False
  89.          Strikethrough   =   0   'False
  90.       EndProperty
  91.       Height          =   240
  92.       Left            =   990
  93.       TabIndex        =   2
  94.       Top             =   840
  95.       Width           =   1470
  96.    End
  97.    Begin VB.Label Lbl_Microsoft 
  98.       Caption         =   "Microsoft Visual Basic for Windows 3.00"
  99.       BeginProperty Font 
  100.          Name            =   "MS Sans Serif"
  101.          Size            =   9.6
  102.          Charset         =   0
  103.          Weight          =   700
  104.          Underline       =   0   'False
  105.          Italic          =   0   'False
  106.          Strikethrough   =   0   'False
  107.       EndProperty
  108.       Height          =   240
  109.       Left            =   990
  110.       TabIndex        =   3
  111.       Top             =   1110
  112.       Width           =   4365
  113.    End
  114.    Begin VB.Label Lbl_Info 
  115.       BeginProperty Font 
  116.          Name            =   "MS Sans Serif"
  117.          Size            =   7.8
  118.          Charset         =   0
  119.          Weight          =   700
  120.          Underline       =   0   'False
  121.          Italic          =   0   'False
  122.          Strikethrough   =   0   'False
  123.       EndProperty
  124.       Height          =   600
  125.       Left            =   1005
  126.       TabIndex        =   5
  127.       Top             =   1545
  128.       Width           =   1875
  129.    End
  130.    Begin VB.Label Lbl_InfoValues 
  131.       BeginProperty Font 
  132.          Name            =   "MS Sans Serif"
  133.          Size            =   7.8
  134.          Charset         =   0
  135.          Weight          =   700
  136.          Underline       =   0   'False
  137.          Italic          =   0   'False
  138.          Strikethrough   =   0   'False
  139.       EndProperty
  140.       Height          =   600
  141.       Left            =   2910
  142.       TabIndex        =   0
  143.       Top             =   1545
  144.       Width           =   1410
  145.    End
  146. End
  147. Attribute VB_Name = "AboutBox"
  148. Attribute VB_GlobalNameSpace = False
  149. Attribute VB_Creatable = False
  150. Attribute VB_PredeclaredId = True
  151. Attribute VB_Exposed = False
  152.  
  153. Private Sub Cmd_OK_Click()
  154.     Unload AboutBox
  155. End Sub
  156.  
  157. Private Sub Form_Load()
  158. Dim WinFlags As Long
  159. Dim Mode As String, Processor As String
  160.     ' Dialog Boxes should only have Move and Close items
  161.     ' in their System menus', so remove the others.
  162.     Remove_Items_From_Sysmenu AboutBox
  163.     ' Center the AboutBox on the screen
  164.      Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  165.     ' Get current Windows configuration
  166. End Sub
  167.  
  168.